LISTing Newsletter

LISTing Newsletter

Newsletter of the Long Island Sinclair/Timex Users Group
(incorporating N.Y.T.S.E.)

MAY 1993

Issue .
Next Meeting
May 16,1993

se SS SSS SS SSS n SSS SS SSS SS SSS SSeS SSeS eee SSeS Ses ee EEN EE AE EE OE EE

Listing Policy Annual Dues...$ 16.00

One “sample” copy sent apon reciept of a large SASE.

Copies provided on EXCHANGE BASIS with other bona fide user groups.
LIST Ing is published monthly except duly and August by LIST (tong
fstand Sinclair Timex) Group, a non profit user group.

We are always looking for articles, programs, reviews, etc. to keep
our members informed and entertained. Yoa maintain fui} copyright.

Portions of this publication may be reproduced, without written
consent. Please give credit to LIST when reprinting our articies.

LIST disclaimes any responsibility for any. damage you may do to
your Computer as a result of reading any articles in LIST ing.

IF YOU WANT TO

EEEKEEEEE ee TREE. SD FOR ME aT 19 f A tH, W
PLEASE CONT
6:00PM AT 51
CRE

i
AM DISPENSARY

OH

CT

TEL

LW

HEM MI KOUL

A HE D BOS HELD
A UAT ID FOR HEM-

B O ER MEETING
5 UTER NOT MORK-

(31
cL
TH Sel
RU LE Ti
FR 'F CHA :
TH L FE: LE
LE TO BE :USED
BESESSSSSSSESSESSSESSSSSSSESS ES zo Be TE NG
OCCUR PERE REVERSES ENE EE EE ER EE EE OF ICLAIR,. TIM
j EK EG! HE
FTIARI
fe “ed
i LL
4D

2 NT bed

minn

Br

ki

disa

QL CORNER

I would like to discuss an additional operation for printing
documentation from within Quill. I have recently received requests
from some of our corresponding LIST members; “How print large
documents, say 10 pages or more, back-to-back".

What I mean by 'back-to-back' is that page two is printed on the back

of page 1; page four is printed on the back of page three, and so
One

Before you start printing document pages singly, make a list of the
pages; both odd pages and even pages and as you start to print each
individual page cross out that Page number on your list so that you
will not become confused when it is time to print the next page.

ODD EVEN
1 2
3 4
5 6
7 8

When you're ready to print out your document, press F3, P, ENTER.

The command line will state Print, current,- press ENTER.
The command line will state Print, current, whole, - press 1, ENTER.
The command line will state Print, current, 1 to end,.- press 1 again

and then press ENTER.

The command line will state Print, current, 1 to 1, to printer,.

To print out the page to your printer, press ENTER and the page will
be printed.

The next page to be printed should be page 3. Just repeat the above
sequence by entering 3 instead of 1, and so on...

Remember to print out ALL odd pages, in their normal sequence as the
above table illustrates; then remove the printed pages from your
printer and turn the printed paper over and reinsert the paper into
your printer. Note that the printed matter on the Printer paper NOW
faces up. Make sure that you installed the printer paper with the top
of page 1 first and ensure that the top of the page is in the proper
alignment so that the document header and/or footer will be in the
approximate place as is the page 1 side.

This sounds like a lot of work.. it really isn’t. Your documents will
now be professional looking and as an added benefit, you have only
used half the amount of printer Paper that you would normally use.

Since the beginning of the year, the Germar. QL market seems to have
_ exploded! Both suppliers have wide variety of new hardware and
software for sale. Hard disk drives interfaces for an assortment of

small to large capacity hard drives, a QL computer TOWER case, and so
much more.

It is my understanding that Mechanical Affinity will also be handling
one of the German suppliers software and hardware, contact:

MECHANICAL AFFINITY MECHANICAL AFFINITY

c/o Frank Davis c/o Paaul Holmgren

513 East Main Street 5231 Wilton Wood Court

Peru Indiana 46970 Indianapolis, Indiana 46254
Tel: 317-473-8031 tel: 317-291-6002

See you next month.... Bob Gilder So =

100 REM Utility Draw

110 REM @ 1962 P Safranek

126 GO SUB 348: CLS : LET x=a:
ET w=

138 LET 3$-INKEYS$

140 IF a$: OT AND a$ “ds AND
aktc»"“s“ AND a$o“ Fr AND ag«eo"c"

159 IF a$=“o“ THEN GO SUB 39a
160 IF ag$=“d" THEN GO SUB 450
158 IF ag$="s" THEN GO SUB 520
199 IF a$s“r“ THEN GO SUB 410
290 IF ag=“c“ THEN GO SUB 498
218 LET x=x+tag=" “l-(ag=.hgw
228 LET G=Y+(C(Aa$=|“Y") L (ag="'n nw)
230 LET R=R+CAF= UI) {a3 §=“b"}
248 LET S=Y+CAXS= U") —-faga"bh')
258 LET R=EX+CIHS=S“MNWJ) -(agFi=.Ntw)
258 LET Y=YF(AX=“ AN) -(age"m")
278 IF x«8 THEN LET x-@

280 IF x>255 THEN LET X=255
282 IF SGZI1I75' THEN ET Yeats
389 IF U«( THEN LET u=ò

x
328 PLOT x,y: PLOT OVER l; x
320 PLOT TH PLOT OUER o7x ug

349 INPUT “ink [8-7] 7"; i°"“pa
er [6-7] 7"; Pi “border tA-73 7"; 5
358 IF i:6 OR is? THEN GO Ta 34

368 IF P: OR i>? THEN GO TO 34
on IF b:0 OR b>? THEN GO TO 34

368 BORDER b: PAPER p: INK i
399 INPUT “overra Of AKTÈ as IF

O<>1 AND 0<>6 THEN GO TO 496

4Q6 RETURN =

418 INPUT “x?";x,"yF" sy

4292 RETURN

438 INPUT “x coord“;

449 INPUT “y coord":

459 INPUT “draw x7":

468 INPUT “draw y?"!

478 PLOT a,b: DRAW ¢
y

santo

d

>

488 RETURN
498 INPUT “xX?7";xx;5"

CIRCLE xx,yy,r
RETURN
INPUT “Name?7?";
SAVE fSSCREENS
RETURN

+99; “TP;

LINE fẹ

“Gtedraw” LINE 100

ETER SAFRANEK of Ashford,

Middlesex, has sent a very use-

ful graphics program for the
16K or 48K Spectrum. Commands
available are “o” to input the over:
“d” to draw for inputted x and y and
draw x and draw y: "c" to draw a
circle around inputted x and y co-
ordinates and inputted radius; "s" to
save the design on the screen as a
SCREENS; and “r” to re-set the flash-
ing pixel cursor to inputted x and y
co-ordinates

The pixel cursor is moved in any
one of eight directions using the
eight letters around “H” on the key-
board—i.e., T, Y, U, G,]. B, N and M.
Once you have entered the program
you can SAVE it by entering “RUN
550”.

Practice and patience can produce
displays like the map of Europe
shown; an outline on the screen in
washable ink was a help for this,
Safranek reports. The advantage of
such a saveable display for educa-
tional purposes is obvious (16 or 48K)

ROP 4 simulates a well-known
parlour game in which you are
required to complete a row of
four counters. The display simulates
neatly the frame used to hold the
counters and the slow-motion fall of
the counters down the screen.
An enjoyable and diverting game
of tactics from Arthur Douglas, of
London E4(16K Spectrum).

232 PRINT
11; “PLAYER
298 INPUT

I
2
8

x 3, LET IS="XXX": INK
PAPER 2: CLS : DI
S$=CHRS$ 244+CHRS 21454+CH

$
120 LET Ts=cHRs 247+CHRS SS+CHR

139 LET Ug=" ji
aoe DATA 8.127,127,127,127,127,

ASB DATA Q.25S8,255,255,255,25s),
166 DATA 8,254,254,254,254,254,
ate SOLO 128,128,128,128,128, 12

DATA 1,1,1,1,1,1,1,25$
FOR Jv=144 TO 143: FOR K=08 T

READ A: POKE USR CHRS J+K,A
NEXT K:'NEXT J

FOR J=2 TO 17 STEP 3

FOR K=2 TO 26 STEP 4

PRINT INK 6; PAPER OAT JK

PRINT PAPER 6;AT J#1,K;TS

NEXT K: NEXT

PRINT INK 3;AT 0,3; "2 2
K pE

INK 7; PAPER X;AT 20,

“GHICH COLUMN r 1 To

iA
309 IF A<>INT A OR A»)? OR Reg

GO TO 29a
LET C=(A-1) 2422

Q
328 IF ATTR (2,C) «6 THEN PRINT
FLASH 1; AT FI Zig O UMN “RIT I

E :
330 PRINT AT 21,7: U$
Q 18

358 LET Z=ATTR tu, c)
EO PRINT AT J.C; PAPER x; INK

IF J=2 THEN PRINT INK 3;AT
*CHRS 32;A; CHR$
IF J2 AND 2=6 THEN PRINT P

SINCLAIR PROGRAMS January/February 1983

APER 6:AT J-2,C;T$
ME IF y22 AND’ Z=48 THEN PRINT
420 IF 22 AND 2256 THEN PRINT
ele fe cess BARE yonn Sè 8%)
= +2, =23
OR ATTR (J+2,C) =15 N- 2
do YA? SA 715 THEN BEEP Ba

420 IF Z-48 THEN FOR Psi TO 4:
BEEP 0-95, (20-23J) 4P. NEXT P
NEXT J

44@ LET L=J734+3: LET C=A+3
“SO LET:A (L5C)-=x

468 FOR J=-3 To a

+78 IF A L+, C) =k AND Sate

+21,C
) =X AND A(L+JU32,C) =x AND Ai(L+J+3
-C) =X THEN Ga TA ssa z
489 IF ACL Cou} =k AND AIL,C+J4i
)=X AND A(L,C+4+2) =X AND A(L,C+J
+3) =X THEN GO TO S

498 IF Ai(L+J,C+u) =X AND Att+u+1
aC+U+1) =X AND RIL+J+42,C+y+2) =x A
do A(L+J+3,C+J4+3) =x THEN GO TO §

"S09 IF AitL-~u,ceu =X AND A(CtL-J)
I4- GRA) =x AND A((L—-V) -2,C+J+2)

= AND AL- -3,0454+3) =x THEN G
Q TO sse

S510 NEXT u
S28 LET I$S="OQOQ": IF x=2 THEN L
ET Is="xxx"
gee LET) X=X+1: IF X=3 THEN LET

Séd GO TO 28a
Sse PRINT SVER 2; FLASH 1;AT aa

S6@ PRINT AT 28,9; Caan 1; INK

(

570 INPUT “ANOTHER GAME “RE: I
F ASI) cny" THEN STOP

588 PRINT AT 298,9;"

“: GO TO 220

co PRINT AT 21,8; US; AT 21,16;u

Saa DIM atl2,13):: Ga TO 22a
39299 SAVE “drop four"

gram for would-be employees of

MGM but a neat routine for pro-
ducing the kind of large-scale
graphics shown in our listing.

A maximum of four lines of eight
characters can each be displayed on
the screen at one time. The prompt
for a string entry is given and a
maximum of seven characters can
then be entered.

The enlarged string is then dis-
played and will scroll up to make
way for a new string. With a COPY
command, the program could be
used with the ZX-81 printer.

Geran for would is not a pro-

IG INPUT AŞ `
28 FOR L=SGN PI TO LEN AS

38 LET

wooo
=

X=VAL “FS8S2"°+CODE AK)

FOR Y=NOT PI TO. CODE “e

LET P=PEEK

IX+Y

FOR G=? TO 8 STEP -1
IF Pi222G6 THEN GOTO 1980
PLOT 8£L-G.8-Y

LET PLP-24I6

NEXT & |j,

PAUSE CORE “j~

NEXT Yi:

NEXT L

SCROLL

SCROLL

SCROLL

SCROLL

GOTO SGN PI

PIROGRAPH, from Martin
C Richaras, of Stevenage, Herts

uses the hi-res graphics of the
Spectrum to fascinating effect.

The program produces graphics in
the style of those line-drawing
machines with the swinging weights
and turning tables. On the Spectrum,
too, it is fun to watch and
you have good pictures.

SINCLAIR PROGRAMS November/December 1982

iR

S LET LX=@: LET ty=a
? LET X=@; LEF van... .

12 CELE
Ee INPUT “RADIUS OF OUTER RING
$ 2

2S IF R=@ THEN GO Ta ia

SA INPUT “RADIUS OF MHEEL?“;RA

48 INPUT “POSITION OF WHEEL I";
D

S8 INPUT “SPEED?";5 —

35 LET LX=127: LET LY=874+R-p

57 PLOT LX,L

Se LET Rae

igg LET X=i(R-Ri:! SIN (A) +iR1-D)
SIN (A+t-(RA-R1—-1)) 127

318 LET Y=iR-R1) 3CQS (A)+CAS
E-IRSRI—-I)I T(Ai-D) AT

i22 DRAN X-LX,Y-LY

132 LET LXX

eg EET brat

Sé LET =A+S

162 IF INKEYs="" THEN GO TO ian
122 sa Ta 22

SPIRO.
CRADH

a

we have not been able to see

the TV screen for interested
parties. Everyone in the office is
becoming a bio-rhythm bore.

The program requires your date
of birth and the current date and
then displays a neat chart of the
month, with curves for the physical,
mental and emotional cycles.

Your physical state varies over a
23-day cycle and relates to your
endurance, strength and aggres-
siveness. The emotional cycle lasts
28 days and governs anger, moodi-
ness and optimism/pessimism. Men-
tally, you oscillate between Eins ein
and ape over a 33-day cycle.

The program was submitted by! R
Clark, of Saltash, Cornwall. |

C re h WE loaded Bio-rhythms

1 RESTORE
2 PRINT AT &, Dn.

YTHM
19 INPUT “Enter
a. pay e ig Month

“Sa INPUT “Enter Date Now “a ‘MM
Year “je

BID-F

Date. Gf Birth

tile-c) €O65.25% +i

29

815 IF r=INT tr. Bs +B cue G FOR u

=id TO 28: Mi rau: NEXT

820 NEXT

5538 PRINT AT SA. JO: ist
Sth

5 LBth
546 PRINT AT Ð., as

TM 2s Mah it

al “j INK 2; “mantat 3s INK ad; °°
emotional"
9388 FOR r=1 TG $S

9365 READ u
910 LET I=Z#PIsrit-LINT try? eyi

920 LET K=2sPI+iSS-yi £.05
1099 FOR a=l TO kelet(2ePI} STEP

1
1819 PLOT INK tti AND ve2s)+t2 f
ND U=28) +i AND U=33,); ta-l) sies
-25+4).96 tin a £65

1020 NEXT

1030 NEXT F

1040 DATA 23.25

1050 INeUT “another &
F a$il)=“y“ THEN GO T

vi

DISTRI

INOMIAL DISTRIBUTION
B might be the first of a new style
of program. It was submitted by
P R Scott, of Goldalming, Surrey,
who believes that there are many
fundamental scientific principles
which could profitably be illustrated
on Sinclair machines. i
This program for the 16K ZX-81
serves to illustrate the principle of

DIH ALT;
FOR N=2 T
LET HiN: =8
NEXT x
58 PRINT
RIBUTION"
sa

1Q
20

G.,S: SINONIM DIST

binomial distribution. The display
shows a ball falling through a triang-
ular matrix of pegs. When the ball
hits one of the pegs it rebounds to the
left or right, entirely at random.

Its final position is recorded and a
further ball produced. The distribu-
tion of final positions is the binomial
distribution, familiar to most O level
mathematics candidates. You may

IF Y=16

LET
IF
IF
GOSUB

: “mo
FA ye

S.to:y
i7.3i"-

16.21."
SIE “GS

Pax
408

ET x
GOSUE

MA st
TEEF

IF Z/2=INT

RI
Rys

INOAALAL
UTION

not know that this characteristic
pattern is also of importance in spec-
tral intensities and polymer
conformations.

An excellent program, likely to
prove of immediate use to teachers
and students of mathematics.
Graphics notes: :

120—Minus, Four spaces, minus and
soon.

de GUTG 499
N LET

BAIE
«5 THE

8.5 THEN LET X=X-2
aa

XaNet

{Z72) THEN LET P

LET Q=x
IF AZ)»=iQ TREN LET B=9-1

PRINT AT
IF A(Z

GOTO

SINCLAIR PROGRAMS November/December 1982

3
208

POIRIT
=S@ THEN INPUT Z$

ZAN | (

INAS
N N Wee

=< SAK /

000609

IF RCN THEN GOTU 210

LET I=INTE-RA=SB5) AION+C-AXA1
LET J=G-IZSF

PRINT “WH"345i"4":; Ze x"

LET #23 iNtE-AE5B3 /(N£D-BxB)
LET L=F-xK 45

PRINT Ke dbe HEK SE

SEL P=SSR (Ds t(N-1) -(B#BZIN+
PEF O-SOR (Cr tn-23 — (RER NE
PRINT

PRINT

LET

LET R=SoR

PRINT ”;8
PRINT “Y SIGMRAI(N) = “iR

LET S=((IZN) +E—-(F €6)3 OER)
PRINT “CORRELATION CQOEFFICI |: YOU are struggling with math-

438 PRINT “R=":5 ; ematics homework, Lineal Ta.
goman ene enon AS dile ge ge ee
= a - e i ems using the ZX-81. It relate
i 2153 PRINT S {YJ = ¿RESOR (2-S*¥S both x to y and y to x, as well as
46S PRINT = “:G6¢SGR (21-585S giving the probable errors involved.
3 From Martyn Whitwood. of
Rotherham, South Yorkshire.

SINCLAIR PROGRAMS November/December 1942

B aksie
2 B=28
S la & Ge
ee 424 PLOT A.E
Esè SQ IF C=2 THEN UNPLOT R.E
e 58 LET LS-INKEYE
78 LET Aste( geste" GE oes tL"
R oUes"ONs AND BEER —cruses*S~ OR
sa" TM OR UESC“) AND AIIE)
LET B=8etiUget?" oF sézvrn
KO AND BEES LLE: a DA
“Kò DR Uks=“i“i AND EE)
IF Ug="2" THEN CORY
F UG="O" THEN LET C=}
IF Ukg=“iLi“ THEN LET G=2
IF U$s“D“ THEN CLS
UNPLOT RE
GOTO 45

OODLE is one of the
D most useful programs we have

received for the ZX-8i
tinkerer.

It provides a way of drawing in
eight directions under cursor con-
trol. Keys 5 to 8 give the usual four
points of the compass, while I, O, K
and L give the points between.

Key W gives UNPLOT and you
can return to PLOT with Q. If you
have a printer you can input Z for an
instant COPY; if not, omit line 85.
Key Ø clears the screen.

As listed, the routine is set up for
the 1K machine and will let you
draw only over a part of the screen. If
a RAM pack is used you can work on
the whole screen by changing the
listing as follows:

In line 70, where “A is less than 53”
and "A is greater than 10”, change to
“A is less than 63” and “A is greater
than Q respectively. In line 80, “B is
less than 35” and “Bis greater than 8”
become “B is less than 43” and “B is
greater than Ø”.

Thanks to Peter Wylie, of
Christchurch, Dorset, for this very
worthwhile routine.

Z

OMe